BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/Passing Notes.cpt/Passing Notes/background_23046.txt

Text File | 1992-04-01 | 7KB | 302 lines

-- background: 23046 from stack: in
-- bmap block id: 22738
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on idle -- disable this
  set icon of cd btn "QuitMe" to 23922
  if commandKey() is down then
    hide menubar
    set userLevel to 1
    exit idle
  end if
  if commandKey() is down and optionKey() is down then
    hide menuBar
    set userLevel to 1
    exit idle
  end if
  set userLevel to 5
end idle

on doMenu whichItem -- disable this
  if whichItem is in "Undo,Copy Text,Paste Text,Cut Text,Clear Text" then
    pass doMenu
  else
    beep
  end if
end doMenu

on mouseUp
  global BkgndNO,tHt
  if first word of short name of target is "MacLodge" then
    if optionKey() is down then
      set visible of bg fld (last word of short name of target +1) to not visible of bg fld (last word of short name of target +1) else
      set hilite of target to not hilite of target
      if hilite of target is true then
        get last word of short name of target
        put it+1 into bkgndNO
        opencard
        put textheight of bg fld bkgndNo into tHt
        put "Speed" &tHt &"-" &it &"-" &textSize of bg fld bkgndNo & "-" &textFont of bg fld bkgndNo into line 2 of cd fld id 14
        set scroll of bg fld bkgndNO to 0
        show bg fld bkgndNO
        Dial "1-818-355-8040"
        set scroll of bg fld bkgndNO to (2 *tHt)
        play "connect snd"
        wait until the sound is "Done"
        Scroller
        set hilite of target to false
      end if
      pass mouseUp
    end if
  end if
  if short name of target is "Resume" then
    if clickLoc() is within rect of cd btn id 17 then
      send mouseUp to cd btn id 8
      Scroller
    end if
  end if
  if short name of target is "QuitMe" then
    set icon of target to 23922
    answer "Quit HyperCard?" with "No" or "Yes"
    if it is "Yes" then
      put cantmodify of this stack into modTemp
      set cantmodify of this stack to false
      visual zoom in
      go cd id 12170
      show cd btn "Please Wait" of cd "Responses2"
      set cantmodify of this stack to modTemp
      send mouseUp to cd btn "QuitHC"
    end if
  end if
  if short name of target is "Passing Notes Response" then
    answer "Return to Passing Notes?" with "No" or "Yes"
    if it is "Yes" then
      set cursor to 4
      global modTemp
      put cantmodify of this stack into modTemp
      set cantmodify of this stack to false
      visual zoom in
      go cd "Responses"
      show cd btn "Please Wait" of cd "Responses2"
      set cantmodify of this stack to modTemp
    end if
  end if
  if short name of target is "Hang Up" then
    set cursor to 4
    openCard
  end if
end mouseUp

on Scroller -- adapted from Stack Starter Stack
  global BkgndNO,tHt
  get number of lines of bg fld BkgndNO
  put it * tHt into MaxHt --(close enough for govt wk. varies with length)
  repeat
    get scroll of bg fld bkgndNO
    if mouseLoc() is within "3,75,493,326" then
      set cursor to 1
    else
      set cursor to hand
    end if
    if it > MaxHt then
      set scroll of bg fld bkgndNO to 0
    else
      set scroll of bg fld bkgndNO to (tHt+it)
    end if
    if mouseClick() then
      get clickLoc()
      if it is within rect of cd btn id 17 then
        send mouseUp to cd btn id 8
        Click at -1,-1
        exit repeat
      else
        beep
      end if
    else
    end if
    if optionkey() is down then
      send mouseup to cd btn id 8
      wait until optionkey() is up
      send mouseUp to cd btn id 8
    end if
  end repeat
end Scroller

on mouseDown
  if short name of target is "QuitMe" then
    set icon of target to 23921
  else
    pass mouseDown
  end if
end mouseDown

on openCard
  global PendState
  if checkRecent() is false then exit openCard
  hide cd btn id 23
  set lockScreen to true
  if short name of cd btn id 8 is "Resume" then
    send mouseUp to cd btn id 8
  end if
  put empty into line 2 of cd fld id 14
  repeat with i = 2 to 4
    hide bg fld i
    set scroll of bg fld i to 0
  end repeat
  repeat with i = 4 to 6
    set hilite of cd btn i to false
  end repeat
  if visible of cd fld 3 is true and PendState is not "Msg Pending" then
    send mouseUp to cd btn id 30
  end if
  hide menuBar
  hide msg
  set lockScreen to false
end opencard

function checkRecent
get id of recent cd
if it is not "card id 12170" then
  if number of this cd - number of recent cd is 1 then
    go next cd
  else
    go prev cd
  end if
  return false
else
  return true
end if
end checkRecent

on arrowKey
end arrowKey

on closeCard
  set lockScreen to true
  put empty into line 2 of cd fld id 14
  repeat with i = 2 to number of bg flds
    hide bg fld i
    set scroll of bg fld i to 0
  end repeat
  repeat with j = 1 to 14
    set hilite of cd btn j to false
  end repeat
  hide cd fld "Help"
  set lockScreen to false
  pass closeCard
end closeCard

on enterkey
  if tool() is "browse tool"
  then choose button tool
else if tool() is "button tool"
then choose field tool
else choose browse tool
end enterkey


-- part 2 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=1 top=36 right=327 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseDown
  Beep
end mouseDown


-- part 4 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=1 top=36 right=327 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 5 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=1 top=36 right=327 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 1 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=1 top=36 right=327 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 3 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=1 top=36 right=75 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  Beep
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=41 top=2 right=14 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel Msg
----- HyperTalk script -----
on mouseUp
  global PendState
  lock screen
  hide cd fld 3 of cd id 24098
  repeat with i = 29 to 32
    hide cd btn id i of cd id 24098
  end repeat
  put empty into cd fld 3 of cd id 24098
  put empty into PendState
  unlock Screen
end mouseUp